Những câu hỏi liên quan
26-Do Thanh Trung
Xem chi tiết
Hello1234
Xem chi tiết
Bo Bong
Xem chi tiết
đăng hiếu
30 tháng 12 2021 lúc 22:44

em chào chj ạ,chj check ib em vs ạ

 

Bình luận (1)
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:28

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,k,x;

int main()

{

cin>>n>>k;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

x=LLONG_MIN;

for (i=1; i<=n; i++)

if (a[i]>k) 

{

x=a[i];

break;

}

cout<<x<<" ";

for (i=1; i<=n; i++)

if (x==a[i]) cout<<i<<" ";

return 0;

}

Bình luận (1)
Trần Trung Hiếu THCS Thá...
Xem chi tiết
Ngọc Diệp
Xem chi tiết
nguyễn an phát
12 tháng 5 2021 lúc 20:24

program du_lieu;

uses crt;

var i,n:integer;

a:array[1..100]of integer;

tbc:real;

f:text;

begin

clrscr;

assign(f,'DULIEU.INP');reset(f);

readln(f,n);

for i:=1 to n do

begin

read(f,a[i]);

end;

close(f);

for i:=1 to n do

tbc:=tbc+a[i];

writeln(tbc/n);

readln;

end.

Bình luận (0)
Đặng Minh quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:41

uses crt;

const fi='dulieu.inp'

var f1:text;

a:array[1..100]of integer;

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do 

 begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

Bình luận (0)
APOK FF
Xem chi tiết
Hello1234
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:25

#include <bits/stdc++.h>;
using namespace std;
int main()
{
    long i,n;
    float tbc,dem,t,a[10000];
    cin>>n;
    for (i=1; i<=n; i++)
    {
        cin>>a[i];
    }
    dem=0;
    t=0;
    for (i=1; i<=n; i++)
        if (a[i]<0)
    {
        dem=dem+1;
        t=t+a[i];
    }
    tbc=t/dem;
    cout<<fixed<< setprecision(2)<<tbc;
    return 0;
}

 

Bình luận (0)
Duc manh Le dang
Xem chi tiết